null {3}clear 
   1 .
   2 . MEMORY clear BY           input 
   3 . JIM DUNSON
   4 .
   5 . USE to RECORD. 'E'        MUST BE > LAST line       # to BE ELIMINATED
   6 .
   9 :print ;TV=0;TV=1;print '%(-24576)=E';print 'E';list ;print ':return ;run 
:return ;clear ;CY=0;CX=-40;NT=5;print "right PAUSE TAPEleft ";NT=0;if KPclear ;list 